(Fstring_to_number): Handle NEGATIVE for floats too.

diff --git a/src/data.c b/src/data.c
index 8b970959f9e98f1c71d045ffeea09465e0b47d2e..8a3d7191f07eeaca5e320b2464b21ffd0e279c85 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1997,7 +1997,7 @@ Floating point numbers always use base 10.")
   
 #ifdef LISP_FLOAT_TYPE
   if (isfloat_string (p))
-    return make_float (atof (p));
+    return make_float (negative * atof (p));
 #endif /* LISP_FLOAT_TYPE */
 
   while (1)